home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / DIR.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  226b  |  23 lines
  1. $stack 2000
  2. cls
  3. ?err
  4. x$="D:\"
  5. ?"CD ";x$
  6. chdrive "D:\"
  7. ?err
  8. x$=dir$("",16)
  9. ?err
  10. while x$<>""
  11.  x=attrib(c$+x$)
  12.  if x=16 then
  13.   color 4
  14.   ?x$;"      <DIR>"
  15.  else
  16.   color 15
  17.   ?x$
  18.  end if
  19.  x$=dir$
  20. wend
  21. end
  22.  
  23.